UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER 



LIBRARY ROUTINE N 15 - 271 



TITLES 

TYPE; 

NUMBER OF WORDS.' 

ACCURACY 5 

SPEEDS 

TEMPORARY ^STQRAGI 

USES 



Mixed Number Input 

Closed with standard entry 

kh 

Machine capacity 

Input time 

0, 1, 2 

Enter with link address in Q. Number to be read must be 

punched on tape as a sign digit, up to twelve decimal 

digits as the integer part, a decimal point, up to twelve 

digits as the fraction part, a carriage return and line 

feed symbol to indicate the end of the number u Fifth 

hole characters other than decimal point and carriage 

return are ignored, so that typing errors may be punched 

out. On exit from this routine, the number is contained 

in AQ scaled by 2^ with ^ = 0. (i.e. N • 2~ 59 is in 

AQ where N is the number on the tape). 

e.g. 

-3.65 (c.r.) on tape 

-3,65 x 2~ 59 in AQ 
Zero may be punched as sign decimal point, carriage return, 



ns 



DATE November 3, 1959 



PROGRAMMED BY 
APPROVED BY 



J 




■J 







" ■ 


LOCATION 


ORDER 
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K5 F 


-) 




k2 1L 


V Link 


1 


26 2L 


\ 




22 F 


J 


2 


hi IF 


Clear 1 




4l 2F 


Clear 2 


' -5. ...'.' 


81 k¥ 


Read s ign 




50 IF 


digit 


k 


00 39F 






ko 26L 

■■■■ 


Set 26L to or -1 

■ 


5 


91 ^F 


Read next character 




32 8L 


5th hole? 


6 


LO 27L 






40 F 


1 Check for 


T 


L3 F 


1 decimal point 




36 12L 


m 


8 


26 5L 
kO F 


repeat if not. 


9 


50 28L 


I 




75 IF 


V treat number 


10 


00 kF 


! as integer 


; 


Ik F 


) 


11 


kO IF 


S 




26 5L 


repeat . 


12 


91 ^F 


Read in next character 




32 15L 


5th hole? 


13 


LO 29L 


^ 




^4-0 F 


I Check for 


lif 


L3 F 


/^ carriage return 




36 20L 


\ and line feed 


15 


26 12L 
kO F 


repeat if not. 


16 


50 F 
75 32L 




17 


00 39F 


\ treat number 




lh 2F 

1 


1 as fraction 



LOCATION 



18 

19 
20 
21 

22 

23 
2k 

25 
26 

27 
28 

29 
30 
31 
32 
33 
3^ 
35 



ORDER 



kO 2F 
F5 16L 
42 16L 
26 12L 
L5 30L 
k2 l6L 
L5 26L 
32 2^L 
Fl IF 
40 IF 
Fl 2F 
IA 31L 
40 2F 
50 2F 
L5 IF 
22 1L 
00 F 
00 F 
80 F 
OC 10F 
50 F 
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I 



} 



} 
} 



00 F 

80 F 

00 2F 

00 F 

00 32L 

80 F 

00 F 

00 F 00 

1000 0000 0000 J 

00 F 00 

100 0000 0000 

00 F 00 

10 0000 0000 J 

00 F 00 

1 0000 OOOQ J 



repeat 
reset 

Check sign 



assemble 
number 
in AQ 



exit 

(0 or -l) 

sign digit 
decimal point 

10 

16 

Carriage return 



and line feed 

reset 

constant 

-] 



10 



-1 



,-2 



10 



10 



-4 



wmrmmnmm 



L OCATION 
56 

37 

38 
39 
IK) 
in 

*0 



ORDER 

00 F 00 

1 000 0000 J 

00 F 00 

1 00 0000 J 
00 F 00 

10 0000 J 

00 F 00 

1 0000 J 
00 F 

00 1000 J 
00 F 
00 100J 
00 F 
00 10J 
00 F 
00 1J 



10 



-5 



10 



-6 



10 



-7 



10 



10 



-8 



10 



-10 



10 



-11 



10 



-12 
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